home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / SprDokAT.atxt < prev    next >
Text File  |  1999-02-10  |  3KB  |  87 lines
  1. /*
  2. $ver: SprDokAT.atxt 1.2 (03.11.98) BLABLA PRODUCT
  3. © 1998 Siumot/BlaBla
  4.  
  5. Ten skrypt jest przeznaczony dla programu AmiTekst. Sprawdza on poprawnoôê
  6. pod wzglëdem ortograficznym dokumentu nie wczytujâc go do programu Ort. Robi
  7. to w ten sposób, ûe pobiera po kolei wszystkie wyrazy z dokumentu
  8. i przekazuje je do Orta w celu sprawdzenia ich poprawnoôci. Korygowanie
  9. rozpoczyna sië od wyrazu znajdujâcego sië pod kursorem tekstowym. Jeôli
  10. w konfiguracji programu Ort, jest ustawione îâczenie wyrazów a pod kursorem
  11. znajduje sië wyraz, który Ort îâczy (np. "nie") to skrypt odczyta nastëpny
  12. wyraz i do sprawdzenia przeôle poîâczony wyraz (np. "nie lubië"). W takiej
  13. sytuacji kursor tekstowy zostanie przesuniëty na drugi wyraz. Skrypt
  14. najlepiej podîoûyê pod klawisz funkcyjny w programie AmiTekst.
  15.  
  16. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta, musisz
  17.          dopisaê nastëpujâcâ linië:
  18.          ORTFILENAME=ôcieûka dostëpu/ort
  19.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  20.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  21. */
  22.  
  23. OPTIONS RESULTS
  24.  
  25. loncz_wyr='NIE NA CO PO JAK OD W BEZ Z NAD'
  26.  
  27. IF ~SHOW('P', 'AmiTekst_port') THEN EXIT 1
  28. ADDRESS 'AmiTekst_port'
  29.  
  30. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  31.    IF ORTFILENAME='ORTFILENAME' THEN DO
  32.      OKAY1 'Program Ort nie jest uruchomiony.'
  33.      EXIT
  34.    END
  35.    ARexxInfo 'Uruchamiam program Ort'
  36.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'" CX_POPUP'
  37.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  38. END
  39.  
  40. ADDRESS '2b_Ort_rexx' Prefs Join Words
  41. czylacz=RESULT
  42.  
  43. ARexxInfo 'Sprawdzam dokument'
  44.  
  45. Status CursorWord
  46. IF RESULT='RESULT' THEN NextWord
  47.  
  48. DO FOREVER
  49.   Status CursorWord
  50.   wyraz=RESULT
  51.  
  52.   IF wyraz='RESULT' THEN DO
  53.     ARexxInfo 'Nie ma wyrazu pod kursorem!'
  54.     Exit
  55.   END
  56.  
  57.   IF czylacz=1 THEN DO
  58.     IF ~(FIND(loncz_wyr,UPPER(wyraz))=0) THEN DO
  59.       NextWord
  60.       Status CursorWord
  61.       dczlon=RESULT
  62.       IF FIND(loncz_wyr' I A RESULT',UPPER(dczlon))=0 THEN wyraz=wyraz' 'dczlon
  63.       ELSE PrevWord
  64.     END
  65.   END
  66.  
  67.   ADDRESS '2b_Ort_rexx' Correction wyraz
  68.   err=RESULT
  69.  
  70.   IF err=1 THEN DO
  71.     Request '"Sprawdzany wyraz: 'wyraz'0A'X'Wyraz jest niepoprawny lub nie zostaî dopisany do sîownika ORTa."' 'D.Globalnie|D.Specjal.|Opuszczaj|»Zatrzymaj«|Nastëpny'
  72.     operacja=RESULT
  73.     IF operacja=1 THEN ADDRESS '2b_Ort_rexx' Add Global wyraz
  74.     ELSE IF operacja=2 THEN ADDRESS '2b_Ort_rexx' Add Specialistic wyraz
  75.     ELSE IF operacja=3 THEN ADDRESS '2b_Ort_rexx' Add Omit wyraz
  76.     ELSE IF operacja=4 THEN LEAVE
  77.   END
  78.   ELSE IF err=2 THEN DO
  79.     Request '"Sprawdzany wyraz: 'wyraz'0A'X'Wyraz jest wyjâtkiem. Sprawdú czy jest on uûyty w poprawnej formie."' '»Zatrzymaj«|Nastëpny'
  80.     operacja=RESULT
  81.     IF operacja=1 THEN LEAVE
  82.   END
  83.   NextWord
  84. END
  85. ARexxInfo ' '
  86. EXIT
  87.